home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’92 / HyperInitMaker... / Heizer Working Models / MasterScript WM.sea / MasterScript™.Demo ƒ / Scripts ƒ / SetUpMenus < prev    next >
Text File  |  1992-04-06  |  5KB  |  133 lines
  1. -- File Name:                SetUpMenus
  2. --
  3. -- Written By:                Peter B. Nagel
  4. -- Date Created:            December 10, 1991 9:06:51 AM
  5. -- Description:
  6. --
  7. --    A MasterScript startup script that deletes MasterScript's
  8. --    built-in menus and recreates them in HyperTalk
  9. --
  10. -- Change History:
  11.  
  12. -------------------------------------------------
  13.  
  14. -- DELETE HYPERCARD'S FONT AND STYLE MENUS
  15.  
  16. -- delete menu "Font"
  17. -- delete menu "Style"
  18.  
  19.  
  20. -- REMOVE MASTERSCRIPT’S BUILT-IN MENUS
  21.  
  22. send deletemenus to window "MasterScript Worksheet"
  23.  
  24.  
  25. -- RECREATE MASTERSCRIPT'S BUILT-IN MENUS IN HYPERTALK
  26.  
  27. create menu MS1
  28.  
  29. put "Go" into menu MS1
  30. set the menumsg of menuitem "Go" of menu MS1 to "MasterScript Go," & quote & "{msActive}" & quote
  31.  
  32. put "Step" after menu MS1
  33. set the menumsg of menuitem "Step" of menu MS1 to "MasterScript Step," & quote & "{msActive}" & quote
  34.  
  35. put "Trace" after menu MS1
  36. set the menumsg of menuitem "Trace" of menu MS1 to "MasterScript Trace," & quote & "{msActive}" & quote
  37.  
  38. put "Step Through" after menu MS1
  39. set the menumsg of menuitem "Step Through" of menu MS1 to "MasterScript StepThrough," & quote & "{msFront}" & quote
  40.  
  41. put "Execute Selection" after menu MS1
  42. set the menumsg of menuitem "Execute Selection" of menu MS1 to "MasterScript ExecSelect," & quote & "{msActive}" & quote
  43.  
  44. put "Abort" after menu MS1
  45. set the menumsg of menuitem "Abort" of menu MS1 to "MasterScript Abort," & quote & "{msFront}" & quote
  46. set the cmdChar of menuitem "Abort" of menu MS1 to "."
  47.  
  48. put "-" after menu MS1
  49.  
  50. put "Find and Replace…" after menu MS1
  51. set the menumsg of menuitem "Find and Replace…" of menu MS1 to "MasterScript Find," & quote & "{msActive}" & quote
  52. set the cmdChar of menuitem "Find and Replace…" of menu MS1 to "F"
  53.  
  54. put "Text Formatting…" after menu MS1
  55. set the menumsg of menuitem "Text Formatting…" of menu MS1 to "MasterScript Format," & quote & "{msActive}" & quote
  56. set the cmdChar of menuitem "Text Formatting…" of menu MS1 to "Y"
  57.  
  58. put "-" after menu MS1
  59.  
  60. put "Save" after menu MS1
  61. set the menumsg of menuitem "Save" of menu MS1 to "MasterScript Save," & quote & "{msActive}" & quote
  62. set the cmdChar of menuitem "Save" of menu MS1 to "S"
  63.  
  64. put "Save As…" after menu MS1
  65. set the menumsg of menuitem "Save As…" of menu MS1 to "MasterScript SaveAs," & quote & "{msActive}" & quote
  66.  
  67. put "Revert To Saved" after menu MS1
  68. set the menumsg of menuitem "Revert To Saved" of menu MS1 to "MasterScript RevertSave," & quote & "{msActive}" & quote
  69.  
  70. put "Page Setup…" after menu MS1
  71. set the menumsg of menuitem "Page Setup…" of menu MS1 to "MasterScript PageSetup," & quote & "{msActive}" & quote
  72.  
  73. put "Print…" after menu MS1
  74. set the menumsg of menuitem "Print…" of menu MS1 to "MasterScript Print," & quote & "{msActive}" & quote
  75. set the cmdChar of menuitem "Print…" of menu MS1 to "P"
  76.  
  77. put "-" after menu MS1
  78.  
  79. put "Configure…" after menu MS1
  80. set the menumsg of menuitem "Configure…" of menu MS1 to "MasterScript Configure," & quote & "{msFront}" & quote
  81.  
  82. put "Edit/Debug Prefs…" after menu MS1
  83. set the menumsg of menuitem "Edit/Debug Prefs…" of menu MS1 to "MasterScript EditPrefs," & quote & "{msFront}" & quote
  84.  
  85. put "About MasterScript…" after menu MS1
  86. set the menumsg of menuitem "About MasterScript…" of menu MS1 to "MasterScript About," & quote & "{msFront}" & quote
  87.  
  88. put "Exit MasterScript" after menu MS1
  89. set the menumsg of menuitem "Exit MasterScript" of menu MS1 to "MasterScript Exit," & quote & "{msFront}" & quote
  90. set the cmdChar of menuitem "Exit MasterScript" of menu MS1 to "E"
  91.  
  92.  
  93. create menu Wind
  94.  
  95. put "Tile Windows" into menu Wind
  96. set the menumsg of menuitem "Tile Windows" of menu Wind to "MasterScript Tile," & quote & "{msFront}" & quote
  97.  
  98. put "Stack Windows" after menu Wind
  99. set the menumsg of menuitem "Stack Windows" of menu Wind to "MasterScript Stack," & quote & "{msFront}" & quote
  100.  
  101. put "Show/Hide Windows" after menu Wind
  102. set the menumsg of menuitem "Show/Hide Windows" of menu Wind to "MasterScript ShowHide," & quote & "{msFront}" & quote
  103. set the cmdChar of menuitem "Show/Hide Windows" of menu Wind to "W"
  104.  
  105. put "-" after menu Wind
  106.  
  107. put "New Window" after menu Wind
  108. set the menumsg of menuitem "New Window" of menu Wind to "MasterScript NewWindow," & quote & "{msFront}" & quote
  109.  
  110. put "Open Script…" after menu Wind
  111. set the menumsg of menuitem "Open Script…" of menu Wind to "MasterScript OpenScript," & quote & "{msFront}" & quote
  112.  
  113. put "Open Text…" after menu Wind
  114. set the menumsg of menuitem "Open Text…" of menu Wind to "MasterScript OpenText," & quote & "{msFront}" & quote
  115.  
  116. put "-" after menu Wind
  117.  
  118. put "Worksheet" after menu Wind
  119. set the menumsg of menuitem "Worksheet" of menu Wind to "MasterScript ShowWorksheet"
  120. set the cmdChar of menuitem "Worksheet" of menu Wind to "1"
  121.  
  122. put "Variables Monitor" after menu Wind
  123. set the menumsg of menuitem "Variables Monitor" of menu Wind to "MasterScript ShowVariables"
  124. set the cmdChar of menuitem "Variables Monitor" of menu Wind to "2"
  125.  
  126. put "Mesages Monitor" after menu Wind
  127. set the menumsg of menuitem "Mesages Monitor" of menu Wind to "MasterScript ShowMessages"
  128. set the cmdChar of menuitem "Mesages Monitor" of menu Wind to "3"
  129.  
  130. put "Externals Monitor" after menu Wind
  131. set the menumsg of menuitem "Externals Monitor" of menu Wind to "MasterScript ShowExternals"
  132. set the cmdChar of menuitem "Externals Monitor" of menu Wind to "4"
  133.